home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / jan94 / vkfig07b.gif < prev    next >
Graphics Interchange Format  |  1996-07-03  |  22.8 KB  |  428x329  |  4-bit (16 colors)
   ocr: ae TESTORYZ-ESciptszren nethod run(var eventinfo Event) var 4 - Query ans, tNane, Field1, Field2, Field1Criteria, Field2Criteria String enduar ans "ANSWER: PRIV:ANSVER.DE" tNane - DBOXFLDS.DE" Field1 L "Start date" Field2 L "End date" Field1Criteria - "Check -12/01/90" Field2Criteria = "Check -1/1/93" 4 query ans tNane I "Field1 - "Field2 - - "FieldiCriteria I "Field2Criteria I endquery if not q.executedBE0) then a5g5top("Error" "Can't run queryin" + errornessage0)) endif endHethod Edt Line 16 Coli 1